######################### Kappa de Fleiss #########################

# Passo 1: Carregar os pacotes que sera usado

if(!require(pacman)) install.packages("pacman")
library(pacman)

pacman::p_load(irr, dplyr, DescTools)


# Passo 2: Carregar o banco de dados


# Carregamento do arquivo csv
View(Kappa_2)


# Passo 3: Cálculo do kappa

irr::kappam.fleiss(Kappa_2[2:4], detail = TRUE)

# irr::kappam.fleiss(dados[2:4], exact = TRUE) # Cálculo ajustado, sugestão de 1980

## Cálculo do IC 95%:
DescTools::KappaM(Kappa_2[2:4], method = "Fleiss", conf.level = 0.95)

# Passo 4: Cálculo da concordância

irr::agree(Kappa_2[2:4])